Option Explicit
Sub A_Sample016()
    'o̪Range("A1:C1")Xxs
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("B1")		'Nxsd
    'ǳƨ즹
    If myRng1.MergeCells Then
        Set myRng2 = myRng1.Cells(1).MergeArea
        MsgBox myRng2.Address
    Else
        MsgBox "zҫwxsdAäOXxs檺@C"
    End If
End Sub
